(gnus-group-make-useful-group): Don't use caddr in interactive.

diff --git a/lisp/gnus/gnus-group.el b/lisp/gnus/gnus-group.el
index 30e3d01e21ba4cfc9e4bea43ad8acf5422ff6514..eec47aaa06e7ceafcdd320f8541bc0a0c3ce99bb 100644 (file)
--- a/lisp/gnus/gnus-group.el
+++ b/lisp/gnus/gnus-group.el
@@ -1961,7 +1961,7 @@ and NEW-NAME will be prompted for."
    (let ((entry (assoc (completing-read "Create group: " gnus-useful-groups
                                        nil t)
                       gnus-useful-groups)))
-     (list (cadr entry) (caddr entry))))
+     (list (cadr entry) (nth 2 entry))))
   (setq method (gnus-copy-sequence method))
   (let (entry)
     (while (setq entry (memq (assq 'eval method) method))